Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim html_st As New System.Text.StringBuilder("<b>Testing string</b><br /><em>with italic text.</em>")
        Dim file_pdf As String = "K:\new.pdf"

        Try
            Dim conv As New DuoDimension.HtmlToPdf()
            conv.OpenHTML(html_st)
            conv.SavePDF(file_pdf)
            System.Diagnostics.Process.Start(file_pdf)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class
